home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 2: CDPD 1 / Almathera Ten on Ten - Disc 2: CDPD 1.iso / pd / 076-100 / 084 / gravitywars / mywindow.def < prev    next >
Text File  |  1995-03-13  |  2KB  |  48 lines
  1. DEFINITION MODULE MyWindow;
  2.  
  3. (**********************************************************************
  4. ***************           Written by Ed Bartz           ***************
  5. ***************           Copyright  5/21/87            ***************
  6. ***************    This program may be redistributed    ***************
  7. ***************    or modified as long as these         ***************
  8. ***************    notices and all other references     ***************
  9. ***************    to the author remain intack.         ***************
  10. ***************    Also this may not be used for        ***************
  11. ***************    profit by anyone without the         ***************
  12. ***************    express permission of the author.    ***************
  13. **********************************************************************)
  14.  
  15. FROM Intuition  IMPORT WindowPtr, ScreenPtr, Menu, MenuItem, IntuitionText;
  16. FROM Console   IMPORT Conport;
  17.  
  18. TYPE 
  19.   MenuData = RECORD
  20.      menu: ARRAY [0..5] OF Menu;
  21.      Items: ARRAY [0..40] OF MenuItem;
  22.      Itemtext : ARRAY [0..40] OF IntuitionText;
  23.      Text : ARRAY [0..40],[0..80] OF CHAR;
  24.      menuname : ARRAY [0..5],[0..80] OF CHAR;
  25.   END;
  26.  
  27. PROCEDURE OpenLibraries () : BOOLEAN;
  28.  
  29. PROCEDURE InitScreen () : ScreenPtr;
  30.  
  31. PROCEDURE InitWindow (screen : ScreenPtr) : WindowPtr;
  32.  
  33. PROCEDURE OpenIOWin(VAR W : Conport; VAR w :WindowPtr;scn: ScreenPtr): BOOLEAN;
  34.  
  35. PROCEDURE CloseIOWin (VAR W : Conport;w :WindowPtr );
  36.  
  37. PROCEDURE InitMenu (VAR GravityWarsmenu: MenuData);
  38.  
  39. PROCEDURE SetColors (sp : ScreenPtr);
  40.  
  41. PROCEDURE ReadMenu(wp : WindowPtr): INTEGER;
  42.  
  43. PROCEDURE QueueMenu(wp : WindowPtr): BOOLEAN;
  44.  
  45. PROCEDURE ReadMouse(wp: WindowPtr;VAR x,y: CARDINAL);
  46.  
  47. END MyWindow.
  48.